home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Personal Write 3.0 german.adf / PostScript ® < prev    next >
Text File  |  1990-10-17  |  8KB  |  7 lines

  1. %!PS-Adobe-2.0
  2. %%Title: Cloanto_AWP3_PS_Driver.ps
  3. %%Creator: Cloanto AWP3 - Copyright (C) 1989, 1990 Cloanto (R)
  4. %%EndComments
  5.  
  6. %
  7. /A{bind def}bind def /e{load def}A /k47 /add e /D /def e /E /dup e /F /exch e /G /findfont e /H /forall e /I /getinterval e /J /grestore e /K /gsave e /L /ifelse e /N /length e /O /lineto e /P /makefont e /Q /moveto e /R /mul e /T /repeat e /U /restore e /V /save e /W /scalefont e /X /setfont e /Y /stringwidth e /Z /stroke e /a /sub e /b /where e /c true D /d false D /B /and e /f /definefont e /g /array e /h /begin e /i /cleartomark e /j /counttomark e /k /currentdict e /l /currentpoint e /m /cvi e /n /exit e /o /get e /p /idiv e /q /known e /r /loop e /s /mark e /t /neg e /u /pop e /v /put e /w /read e /x /roll e /y /search e /z /showpage e ÿ /k18 400 D /k17 k18 string D /k46 0 D /k43 0 D /k132 0 D /k20 1 D /k45 0 D /k31 400 D /k4 k31 g D /k34 3 D /k15 k34 t D /k21 0 D /k32 255 D /k26 k32 g D /k24 k32 g D /k27 k32 g D /k25 k32 g D /k23 k32 g D /k29 k32 g D /k30 k32 g D /k28 k32 g D /k22 k32 g D /k10 15 D /k8 k10 string D /k9 0 D /k11 matrix D /k3 d D /k100 0 D /k44 d D /k12 720 D /k7 79 D /k6 255 D /k5 1 D /k19 c D /k35 c D /k1 [ 39 /quotesingle 96 /grave 154 /circumflex /tilde /ring /dotlessi /fi /fl /space 164 /currency /yen /bar 168 /dieresis /copyright /ordfeminine 172 /logicalnot /.notdef /registered /macron /ring /.notdef /.notdef /.notdef /acute /.notdef 184 /cedilla /.notdef /ordmasculine 188 /.notdef /.notdef /.notdef 192 /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /D /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /.notdef /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Y /P /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis /d /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /.notdef /oslash /ugrave /uacute /ucircumflex /udieresis /y /p /ydieresis ] D /A{bind D}bind D /k48{/k49 0 D E N 1 a 0 F 1 F{F E 3 -1 x o 48 a E E 0 lt F 9 gt or{u n}if k49 10 R k47 /k49 F D}for u k49}A /k50{/k51 F D /k52 d D j 2 p{F k51 eq{exec /k52 c D i n}{u}L}T k52{c}{u d}L}A /k53{0.1 0.1 scale statusdict h statusdict E E /mirrorprint q{/mirrorprint d D}if /negativeprint q{/negativeprint d D}if /setjobtimeout q{0 setjobtimeout}if end k116 /k101 k78 k117 /k102 k78 k118 /k103 k78 k119 /k104 k78 k124 /k105 k78 k125 /k106 k78 k126 /k107 k78 k127 /k110 k78 d k71 c k69 0 k70 0 k68 0 k72 3 k65 6 k66 0 0 k67 d k74{currentfile w not{n}if k100 0 ne{k100 k47 /k100 0 D}if E 32 ge{E 92 eq{k3{k84 /k3 d D}{u /k3 c D}L}{k3{E 60 eq{/k100 -32 D}if E 61 eq{/k100 160 D}if 62 eq{/k100 128 D}if /k3 d D}{E 160 ge{k80 not{k84}if}{k84}L}L}L}{E 27 eq{k63}if  E 10 eq{k75}if E 13 eq{k73}if E 12 eq{c k74}if 4 eq{n}if}L}r k19 not{k73} if k35 not{c k74}if k79}A /k61{k13 0 lt{k13 abs 2 R}{k111}L}A /k62{k13 0 lt{k111}{k13 2 R}L}A /k63{currentfile w not{k79}if k85 E 91 eq{/k97 64 D u /k9 0 D}{/k97 48 D k8 F 0 F v /k9 1 D}L{k9 0 gt{k8 k9 1 a o}{k97 1 a}L E k97 ge F 126 le B k9 k10 ge or{n}if currentfile w not{k79}if k8 F k9 F v /k9 k9 1 k47 D}r  k8 0 k9 I /k87 F D s(M){k64}(0m){0 k70}(1m){2 k70}(22m){-2 k70}(3m){1 k70}(23m){-1 k70}(4m){4 k70}(24m){-4 k70}(0w){0 k68}(2w){12 k68}(1w){10 k68}(4w){17 k68}(3w){0 k68}(6w){5 k68}(5w){0 k68}(0v){0 k72}(2v){1 k72}(1v){0 k72}(4v){-1 k72}(3v){0 k72}(2p){c k69}(1p){d k69}(0 F){0 k65}(5 F){0 k65}(1 F){1 k65}(7 F){2 k65}(3 F){3 k65}(6 F){3 k65}(0z){8 k66}(1z){6 k66}(#3){-1 -1 k67}k87 k50 not{k8 k9 1 a o 115 eq{k87(;)y{F u k48 F k48 k67 }{u}L}if}if}A /k64{/k13 b{u /k13 k13 t D}if}A /k65{/k14 F D}A /k66{/k13 b{u k13}{1}L F k12 F p /k13 F D k13 0 eq{/k13 k12 6 p D}if 0 lt{k64}if}A /k67{/k38 F D E 1 lt{0}{E 1 a}L /k132 F D /k16 F D k37{k16 0 le{k114adj}{k114}L}{k11 0 k57 v k11 3 k58 v k54 G k11 P X(M)Y u}L  k16 0 le k38 0 le k16 k38 ge or or{/k16 k113 D k38 0 lt{/k38 F k6 R k113 k47 m D}{/k38 F k7 R k113 k47 m D}L}{E /k16 F k16 1 a R k113 k47 m D /k38 F k38 R k113 k47 m D}L}A /k68{E 0 gt{E E 10 lt F 12 gt or{/k40 F D}{/k33 F D /k40 0 D}L}{/k33 b{u}{/k33 10 D}L 0 eq{/k40 0 D}{/k40 b{u}{/k40 0 D}L}L}L k77 k54 G k56 W X k12 k40 0 eq{k33}{k40}L div(M)Y u E 0 eq{u 1}if div k37 k40 0 eq B{u}{k55 R m /k55 F D}L -10 k72}A /k69{/k37 b{u E k37 ne}{c}L{/k37 F D /k41 b{u}{/k41 0 D}L k77 -1 k68 -10 k72 /k114adj k114 k37{k115 R 100 div m}if D}if}A /k70{E 0 ne{E 0 gt{k41 or}{t E k41 or xor}L}if /k41 b{u E k41 ne}{c}L{/k41 F D k77 -1 k68 -10 k72}{u}L}A /k71{/k42 b{u /k42 F D k77 -1 k68 -10 k72}{/k42 F D}L}A /k72 {E -10 eq{/k39 b{u}{/k39 0 D}L u}{/k39 F D}L k39 0 ne{/k57 k55 2 R 3 p D /k58 k56 2 R 3 p D k39 1 eq{/k60 k56 2 p D}{/k60 k56 4 p t D}L}{/k57 k55 D /k58 k56 D /k60 0 D}L}A /k73{k19 not{k85 k76 /k46 0 D /k43 0 D /k20 1 D /k21 0 D /k19 c D /k35 d D}if}A /k74{k19 not{k73}if{K z J}if /k35 c D /k2 k61 D}A /k75{k19 not{k73}if /k2 k2 k13 a D /k5 k5 1 k47 D k2 k62 lt k2 k61 lt xor not{c k74}{/k35 d D}L}A /k76{/k94 0 D /k95 d D /k96 0 D k21 1 ge{k24 k21 1 a o k26 k21 1 a o a 1 lt{/k21 k21 1 a D}if}if{/k91 0 D{k91 k21 ge{n}if k29 k91 o k11 F 0 F v k30 k91 o k11 F 3 F v k23 k91 o G k11 P X k25 k91 o E 1 gt{k37{k114adj}{( )Y u}L R}{0 gt{( )Y u}{0}L}L m /k93 F D k17 k26 k91 o E k24 k91 o F a I k95{k14 3 eq{k93 0 gt k91 0 gt k94 0 gt B B{k92 k94 p E k93 k47 /k93 F D  k92 F a /k92 F D /k94 k94 1 a D}if}if /k108 k108 k93 k47 D k14 0 eq k25 k91 o 1 gt k37 B B{k5 k15 a k34 gt{0 1 k31 1 a{k4 F -1 v}for}if k27 k91 o E k4 F o E -1 eq{u k4 F k108 v}{/k108 F D u}L /k15 k5 D}if k22 k91 o k2 k47 /k109 F D k108 k109 Q show /k88 l u m D k28 k91 o k88 k108 gt B{k23 k91 o G E /FontMatrix o 3 o k30 k91 o R /k90 F D E /FontInfo q{/FontInfo o E /UnderlinePosition q{E /UnderlinePosition o k90 R}{k30 k91 o 10 div t}L k109 k47 /k109 F D E /UnderlineThickness q{/UnderlineThickness o k90 R}{u k30 k91 o 20 div t}L /k89 F D}if k89 setlinewidth newpath k108 k109 Q k88 k109 O Z}if /k108 k88 D}{Y u m /k99 F D k93 0 gt k91 0 gt B{/k94 k94 1 k47 D}if /k96 k96 k93 k99 k47 k47 D}L /k91 k91 1 k47 D}r k95{n}{k14 0 eq k14 3 eq or{k38 k16 a 1 k47 k96 a /k92 F D /k108 k16 D}{k14 1 eq{k38 k16 a 1 k47 k96 a 2 p k16 k47}{k38 k96 a}L /k108 F D /k92 0 D}L /k95 c D}L}r}A /k77{/k59 k41 4 ge{c}{d}L D k42{/k54 /Symbol D /k56 k120 D}{k37{s 0{/k54 /k101 D /k56 k120 D}1{/k54 /k102 D /k56 k121 D}2{/k54 /k103 D /k56 k122 D}3{/k54 /k104 D /k56 k123 D}k41 3 B k50 u}{s 0{/k54 /k105 D /k56 k128 D}1{/k54 /k106 D /k56 k129 D}2{/k54 /k107 D /k56 k130 D}3{/k54 /k110 D /k56 k131 D}k41 3 B k50 u}L}L /k55 k56 D /k57 k55 D /k58 k56 D}A /k78{F k1 3 1 x G h k E N dict h{1 index /FID ne{D}{u u}L}H /FontName F D E N 0 ne{/Encoding Encoding 256 g copy D 0 F{E type /nametype eq{Encoding 2 index 2 index v u 1 k47}{F u }L}H}if u k E end end /FontName o F f u}A /k79{U}A /k80{/k98 F D s 215{8#264 k83}247{8#270 k83}177{8#261 k83}181{8#155 k83}178{50 k82}179{51 k82}185{49 k82}188{1 k81}189{2 k81}190{3 k81}k98 k50{c}{k98 d}L}A /k81{E 1 eq{u 52 47 49}{2 eq{50 47 49}{52 47 51}L}L k84 k84 k84}A /k82{k39 F k85 1 k72 k84 k85 /k39 F D -10 k72}A /k83{k85 c k71 k84 k85 d k71}A /k84{E 32 eq{u k44{k85}if /k45 k45 1 k47 D}{E E 105 eq F 108 eq or k37 B{k43 k46 a 0 gt{k17 k43 1 a o 102 eq{105 eq{158}{159}L /k43 k43 1 a D /k20 k20 1 a D}if}if}if k17 F k43 F v k43 2 k47 k18 lt{/k43 k43 1 k47 D}if k44 not{k27 k21 k20 k132 k47 v /k44 c D}if}L /k20 k20 1 k47 D /k19 d D}A /k85{k45 0 gt k43 k46 a 0 gt or{k25 k21 k45 v k26 k21 k46 v k24 k21 k43 v k86 k21 k32 lt{/k21 k21 1 k47 D}if /k45 0 D /k46 k43 D}if /k44 d D}A /k86{k23 k21 k54 v k29 k21 k57 v k30 k21 k58 v k28 k21 k59 v k22 k21 k60 v}A V k53